home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
yat
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
14KB
Path: seq!spell
From: Detlef Mueller <detlef@mwhh.hanse.de>
Subject: v01i048: yat - TETRIS V1.3, Part01/01
Newsgroups: comp.sources.hp48
Keywords: tetris game yat update hp48
Organization: M. Witt
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu
Checksum: 2563579151 (verify with brik -cv)
Submitted-by: Detlef Mueller <detlef@mwhh.hanse.de>
Posting-number: Volume 1, Issue 48
Archive-name: yat/part01
BEGIN_DOC yat.doc
Hi, folks.
Here's an update of TETRIS to version 1.3 .
The changes (vs. version 1.0) are:
- 2862 bytes, chksum #49FAh
- Initial/pause screen (the reason for the incr. size ..)
- increased speed (I hope :)
- stone positions more close to the original
Installation:
To install the game, a) download the ASC version, execute ASC\->, b)
download the uudecoded version and recall it into the stack.
Enter the port number (0,1,2) where you want to store it and press
STO. Switch the HP48 off, then on again. TETRIS will now be installed
as a library named TETRIS. It uses the ID nr. 769. Normally, this
number is used by the HP CASINO48 card, but I think TETRIS is the
better choice.
Run/keys:
To play it, enter the LIBRARY TETRIS menu and press the softkey
named TETRIS or just type TETRIS[ENTER] at the command line.
You will now see an initial screen. After pressing any key the
game starts, coming up with the following screen:
+-------------------------------------------+
|SCORE | ## | TETRIS |
| 0 | ## | |
|LEVEL | | ****** |
| 0 | | * * |
|LINES | | ****** |
| 0 ## | | |
| ## | | |
||PAUSE|| PVT ||_____________||+LEVL|| QUIT||
+-------------------------------------------+
Symbol Means
****** is a little help screen for the motion control keys.
* * Here they are:
****** - Left arrow : Move stone one step left
- Right arrow : Move stone one step right
- Up arrow : Rotate stone
- Down arrow : Drop stone
- VAR key : 'Quick' move stone left
- NXT key : 'Quick' move stone rigth
|xxxxx| are softkey menu labels. The following softkeys are supported:
- |PAUSE| : Stop TETRIS until a key is pressed
- | PVT | : Toggle stone preview on/off
- |+LEVL| : Increment level
- | QUIT| : Force 'GAME OVER'
## is a stone.
##
The ON key can be used to leave TETRIS immediately.
Things to notice:
1) If you get a 'TETRIS failed' from the game, please mail me a
description of the circumstances and the contents of the stack.
2) I will maintain this program, so feel free to MAIL ME ideas for
improvement or notes of appreciation.
Credits:
1) Lennart Boerjeson - TETRIS posted in Aug 90. I take the pause
picture from it ..
2) Chris Spell - inserted the UUENCODE form of TETRIS (thanks :-)
3) W. C. Wickes - \->ASC
4) HP - RPL tools/HP48
Enjoy,
8-), Detlef
END_DOC
BEGIN_ASC yat.asc
%%HP: T(3)A(R)F(.);
"04B207561011455445259435A313E233C29A44D47293131110365510000001C5
1050000D9D201192010300F6C12B2130D9D2013593CA031FC2E4B2130D9D2074
3E4CA03117D007947044193B21308103000D9D20E1A8129E20103100E5E40D9D
2029E2010330029E2010340029E20103500B21308BE40D9D20C2A20F10004554
4525943502641696C6564680983B213029E20103200B2130D9D20FEF30530400
73E5442302CFA2743A2CB9A211CE29082629E20103F0032230C9B26980503392
0999000000000091029E20103E0088B2679E6003D4376040073E54E470D91409
70362BB4671B051192045000970362BB4671B05D91402BB4611920450002C230
71B0511920E6000A8B46C2A20D000015559445823A31192085000A8B46C2A20F
0000B2C45465C4823A3BC040A8B46C2A20B0000056545823A3FEF30A8B46C2A2
0F00000514553554823A33004075140C2A20F0000C494E4543508F1130040DA0
40C2A20F0000C4546554C408F113004088130C2A20F00003534F4255408F1111
920B500030040E1B20FE1000300062000FFFFFFFFF35240408092FFFFFFFFF30
000000000F7FBFBF4E180104805128010480510801048051080F148F4E180104
824028010484402801048841280F34805E10000000000FFFFFFFFF3524040809
2FFFFFFFFF300000000000002E100000006120000000E040000000E140000000
E34000000000000008CFFFFF720C404040460E4A44494E0F5A4E4B4F1E4A4F5F
4E0C44CF7D460844404942004040404000CFFFFF700048404240004C40464000
4ECF7E40004F4F5E50004E4E4E40004C444640004840424000CFFFFF70000000
00000000040000000004000000008F300000000F100000000E00000000040000
0F30403C3700B821433703914049B462C2300DB4680B05940403F040D9140D00
403C370FEF3029E20103800433703004055735D00405273529E20103D00B2130
D9D202A17083416C5416566169FF305761629E20103F002CFA2743A2CB9A211C
E29082652616C9B269805051616D004087735CB916D9D201192060C00FEF306B
316E8F60834163223011920F99F06B316E8F6085230B2130B7040FEF30586169
FF3055735CA1307E316E8F6098E36D9D2011920F99F06B316E8F602A1709FF30
87735A2170D9D20D00403C37029E20103A0043370CB416FED305861626224CB9
16D9D203004052735B2130B21303004087735A2170D9D20FEF306B316E8F6023
E46CBD30CA1307E316E8F6069816D9D2011920F99F06B316E8F60B213023E460
ED3011920F99F06B316E8F609FF3087735CB916D9D209FF30557357BF60B2130
85230FEF30B213066226300408773557B308C170B2130D9D203004052735B213
07CC30300408773564B308DA164423029E2010390030040877358C170B2130D9
D2026224A2170D9D2021B469E040E1B205500070000820000000000000C94470
757324D6105515AD557055732554105215C55470727500000000000B82111920
8151059616170403C370B2040CC4168813011920091000ED3059616433701704
03C3702B1414337017D0056F1485230B2130860503004055735D004055735B21
30D9D203F040C6416908265361629E20103800E0416339208990000000001710
189A23392069900000000000105F6A200616B2130D9D208813023E467FE30B9F
06F6E30F6E305362121B46FEF3011920550008DF06F291121B4671040592300B
821C84169082655616D91402C23029E20103800120407FE30B9F06C641638D30
CB91629E20103600580401192009100FD04011920C21002B1412B141B2130D9D
2030040CAF064E76100D110B821B2130D9D20C741688130C6416D0040877358D
A1630040D00402CE30DF040CBD30CB4160ED305D72654616940402C23029E201
03800119208E3007FE30B4826119208E3007FE30B9F06E4D30CB916D9D205304
011920CB200F3040119204F1002B1412B141B213011920B0E002A170E4A20410
000001002003004002C230CA1307E316E8F60CAF06A85267E316E8F60CBD3071
040D2C2629E20103700D9D2023E460ED30B21301192000200CD6368C17044230
17D0024F50B2130D9D20E04169C7A141740CB916D9D2044EF3D50403D81629E2
0103B00F80403D816D9D20FEF306B316E8F6011920FFFFF29E20103C00442301
1920F99F06B316E8F60B21303A0403D816D9D20FEF306B316E8F609FF3029E20
103C004423011920F99F06B316E8F60B2130350403D816D9D20FEF306B316E8F
602A17011920FFFFF29E20103C008C17011920F99F06B316E8F60B2130760403
D816D9D20FEF306B316E8F602A1709FF3029E20103C008C17011920F99F06B31
6E8F60B2130990403D816D9D209FF3052735B21309FF303D81629E20103D0030
0403D816D9D20D00408773539916D9D20D004055735834161192060C00FEF306
B316E8F6085230B2130D004052735834161192060C0011920F99F06B316E8F60
85230B2130120403D81629E20103600B2040C6816D9D203004052735B2130B21
30B2130D9D20FEF306B316E8F6029E20103F00C9416C9B26CA416E0E3084E36D
9D204423013236B21308813059616C9B2632230CA1307E316E8F6098E36D9D20
12F06CC41657616B2130B9F0611920F99F06B316E8F60B2130D9D20881305961
6CBD30CA1307E316E8F60698160CA30CC4160ED3018A30B2130D9D2021B46FEF
30CA13053621CAF0611920450002BB46F2911CAF06CA13053621CAF061192045
0002BB46E9836C1B467B040E1B20591007200052000080051000008005100000
E30510000080051010008984201000C8842C70008EB420100088CF7030004950
5810004D40501000A84C701000AA405820009C507820084E585450082B205450
089A205290084B68252100FAA83941009AAC6391009AA45521009AAAAEF0001F
76D28000114AA28000F14C7EF00011444101001F74CFF300908CF00208808280
02084001010208FFFFFFF30C429429460A4294294A0FFFFFFFFF110001100011
008020001100802000110080200011008020001FFFFFFFFF12BB46D0040E1B20
1300011000700008080E38081C0804122141422C1414141C10B8210B82156F14
85230592300B82124F50B213047A20D9D2075660CCD20A010013610ADD10B147
134109164AF0142100E7174143145132164AF215E1164818FA580D01561AFAAF
1D122A95118C9D5F522A8520A81819F122A82C1201BB5507146818F29818F29C
9136AF2156090A90B456E002F308200E49BF4BF4BF4AF68AE09AF0AF2AC48108
087340E68084396840E61111321641442011BDD11A136142164808CB2130CCD2
01D000174E78FB97601C4143132164AF0142101174143132164AF01421001741
43132169AF215EBAFAAF122A95118C9AF5BF522A8520A8181D22A82C1201BB55
07146818F29818F29C9134119BF2BF2241542BF616F16F1610D880BEBF4BF4BF
4AF68AEB8208F34150B213047A2047A20E4A2011000301100300200E4A201100
0102202201200E4A2011000101301201100E4A2011000102200100101B213047
A20E4A2011000101300200100E4A2011000202100200201E4A20110001013012
01300E4A2011000202102101100B213047A20E4A2011000201100300200E4A20
11000202101200201E4A2011000101301200201E4A2011000202301201200B21
3047A20E4A2011000101300201200E4A2011000302201301200B213047A20E4A
2011000301100201200E4A2011000102201101200B213047A20E4A2011000000
300100200E4A2011000103102101100B213047A20E4A2011000201101100200B
2130B2130E4A20070000000000000000000000000000C3000000000000000000
00000000000000000000000000000000000610006045544525943500011000E4
A2055000B9AEF35AEF76AEF91BEF46FEFDD1FFCD2FFE33FFD04FFB24FF595FF8
08FFEA8FFAE8FFB4BFF44DFFD6ACAF94"
END_ASC
BYTES: #49FAh 2869.5
BEGIN_UU yat.uu
begin 644 yat.lib
M2%!(4#0X+45`*W!E`1%4151225,Z,2XS+*E$32<Y,1$!8U4!```07`$%`-#98
M`A$I$#``;QRR$@.=+1!3.:PP\2Q.*S'0V0)'X\0*$W$-<$D'1)&S$@,8,`#0B
MV0(>BB'I`@$3`%Y.T-D"DBX0,`,@Z0(!0P"2+A`P!;`2`[A.T-D"+"KP`0!4?
M151225,@1F%I;&5D"(FS$@.2+A`P`K`2`YTM\/X#-4``-UY$,B#\*D>CPILJF
M$>R2@&*2+A`P#S`B`YPKE@@%,RF0F0``````&2#I`@'C`(@K=ND&,$US!@1PT
MXT5.!YU!D`=CLDMVL5`1*4`%`'DP)KMD%PO5&02R2Q:1`E0`("P#%PL5D0)N_
M`*"X9"PJT```455)5"BC$Y$"6`"@N&0L*O```"M,159,**.S#`2*2\:B`@L`$
M`&5%A3(Z[S^@N&0L*O```%!!55-%**,S``170<"B`@\`P)3D5#0%^!$#0-`*_
M!"PJ\```3$5614R`'S$`!(@QP*("#P`P-?0D503X$1$IL`4``T#@L0+O`0`#C
M`"8`\/____]30D"`D/+_____`P````#P]_O[Y($00`@5@A!`"!6`$$`(%8#P^
M0?CD@1!`*`2"$$!(!((00(@4@O!#".4!`````/#_____4T)`@)#R_____P,`O
M``````#B`0```!8"````#@0````>!````#X$````````@/S__R?`!`0$9."DT
M1)3D\*7DM/3AI/3UY,!$_-=D@$0$E"0`!`0$!`#\__\'`(0$)`0`Q`1D!`#DA
M_.<$`/3TY04`Y.3D!`#$1&0$`(0$)`0`_/__!P````````!``````$``````(
M^`,```#P`0```.``````0```\`,$PW,`BQ(T<S`9!)1+)BP#T$N&L%!)0#`/N
M!)U!T``$PW/P_@.2+A`P"$`S!P-`4'53#4!0<E.2+A`P#;`2`YTM(!H'.!3&"
M16%E%I;_`W46)ND"`?,`PJ]R-"J\J1+!+@DH5F)AG"N6"`45%M8`!'@WQ9MA\
MG2T0D0(/#^`[83YO@&.!0V(@,1*?"9#[83YO@&6#*P$@-[0/#^`X46EO\#O
M53?%&@/G$^;X!HD^UMD"$2GPF0^V$^;X!J)QD/\#>#>E$@>=+=``!,-S(.D"'
M`:,`-'/`2V'O/5!H86(BQ)MAG2TP``0E-[42`RLQ,``$>#>E$@>=+?#^`[83G
MYO@&,D[&VP.L,7`^88YO8(EAG2T0D0*?^6`[88YOL!(#,DX&W@,1*?"9#[83&
MYO@&^3^`=U.\&=;9`OD_4'53MV^P$@-8,O#^`RLQ8"9B`T"`=U-U.X`<!RLQ;
MT-D"`T!0<E,K,7#,`P-`@'=31CN`K6%$,B#I`@&3``-`@'=3R'&P$@.=+2`F.
M0BIQT-D"$DN6#@0>*U`%``<`@`(```````"<1`=7-T)M`551VE4'53=210$ED
M45Q%!R=7``````"P*!&1`A@54&EA<4`P/`<K0,!,88@Q$)$"D`$`W@.5%D8S9
M!W%`,#P'LD%!,P=Q#5#V05@RL!(#:%`P``15-]4`!%4WM1(#G2TP#P1L%):`%
M8C46)ND"`8,`#A0VDP*8"0````!Q`8&I,I,"E@D```````'UI@)@82LQT-D"9
MB#$@XV3W/K#Y8&\^\.8#-28AL63O/Q"1`E4`@/U@+QDAL6070%`I`[`HP4AAQ
M"2A696&=02`L`Y(N$#`($`($]SZP^6!L%#;8`[P9)ND"`6,`A4`0D0*0`?`-1
M!!$IP!(`LD$A&Q0K,=#9`@-`P/I@Y&<!T!&P*+$2`YTMP$=AB#'`1F$-0(!W+
M4]@:-@`$#4`@[`/]0,#;`[P4!MX#U2=69&%)0"`L`Y(N$#`($)$"Z`-P[P-+,
M*!:1`N@#<.\#FP_FU`.\&=;9`C5`$)$"O`+P`P01*4`?`+)!(1L4*S$0D0(+*
M#B`:!TXJ0`$``!```C``!"`L`ZPQ<#YACF_`^F"*)78^88YOP-L#%T#0PF*2!
M+A`P!]#9`C).!MX#*S$0D0(``L!M8\AQ0"0#<0T@]`4K,=#9`@X4EGP:%$?`V
MFV&=+4#D/UU`,(UADBX0,`OP"`33&-;9`N\_8#MACF\0D0+__R_I`@'#`$0R^
M$)$"G_E@.V&.;[`2`Z-`,(UAG2WP_@.V$^;X!OD_(.D"`<,`1#(0D0*?^6`[6
M88YOL!(#4T`PC6&=+?#^`[83YO@&HG$0D0+__R_I`@'#`,AQ$)$"G_E@.V&.;
M;[`2`V=`,(UAG2WP_@.V$^;X!J)QD/\#DBX0,`R`'`<1*?"9#[83YO@&*S&0B
M"033&-;9`OD_4')3*S&0_P/3&";I`@'3``-`,(UAG2W0``1X-S6989TMT``$K
M53>%0V$1*6#``.\_8#MACF^`)0,K,=``!"4WA4-A$2E@P``1*?"9#[83YO@
M6#*P$@,A0#"-89(N$#`&L`($;!C6V0(#0%!R4RLQL!(#*S'0V0+O/V`[88YOG
M(.D"`?,`G!3&N6*L%.;@`T@^UMD"1#(0(V,K,8`8`Y46QKEB(S+`&@/G$^;XD
M!HD^UMD"(0_&3&%U%K82`YL/%I$"G_E@.V&.;[`2`YTM@!@#E1;&VP.L,7`^F
M88YO8(EAP#K`3&'@/1"H`RLQT-D"$DOV_@.L,5!C$JP/%I$"5``@NV0O&<'ZC
M8*PQ4&,2K`\6D0)4`""[9)XXQK%DMT#@L0*5`7`"`"4```A0`0``"%`!```^T
M4`$```A0`0$`F$@"`0",2,('`.A+`@$`B/P'`P"4!84!`-0$!0$`BL0'`0"J%
M!(4"`,D%AP*`Y(5%!8"R`D4%@*D")0F`M(92$@"OBI,4`*G*-AD`J4I5$@"I;
MJNH/`/%G+0@`$:0J"``?Q.</`!%$%!``\4?\/P`)R`\@@`@H"""`!!`0((#_+
M__\_P"1)DF2@)$F2I/#_____$0`0`0`1``@"`!$`"`(`$0`(`@`1``@"`/'_V
M____(;MD#4#@L0(Q`!`!``<`@(#@@X#!@$`A$A0DPD%!0<$!BQ*P*%'V05@R=
M4"D#L"@A]`4K,4"G`ITM<&4&S"V@$``Q%J#=`1MT,1208:0/01(`?G$4-$$5Y
M(V&D+U$>882!KX70$&6AK_K1(:)9$<C9]26B6`**@9$?(HK"(1"[57!!AH$O(
MB8$OR1EC^A)ED*`)2V4.(#^``N"4^[1/^Z1OJ`ZI#_JB3!B`@#<$;@A(DX8$T
M;A$1(V$41`(1VQVA,18D882`O!(#S"T0#0!QY(>_>0;!%#0Q$D;Z$"0!$4=!>
M$R-AI`]!$@!Q%#0Q$I;Z$N6KK_HAHED1R*E?^R6B6`**@=$BBL(A$+M5<$&&]
M@2^)@2_)&4,1N2_[(A1%LF]A'_9A`8T(Z_NT3_ND;ZB^*(`_%`4K,4"G`G0J:
MX*0"$0`P$`$P``+@I`(1`!`@`B(0`N"D`A$`$!`#(1`!X*0"$0`0(`(0``&Q"
M$@-T*N"D`A$`$!`#(``!X*0"$0`@(`$@``+AI`(1`!`0`R$0`^"D`A$`("`!&
M$A`!L!(#="K@I`(1`"`0`3```N"D`A$`("`!(0`"X:0"$0`0$`,A``+AI`(1T
M`"`@`R$0`K`2`W0JX*0"$0`0$`,@$`+@I`(1`#`@`C$0`K`2`W0JX*0"$0`P/
M$`$@$`+@I`(1`!`@`A$0`K`2`W0JX*0"$0````,0``+@I`(1`!`P`1(0`;`25
M`W0JX*0"$0`@$`$1``*P$@,K,>"D`G```````````````````#P`````````1
M`````````````````````````&`!``94151225,`$`$`3BI0!0";ZC^E_F?J"
CG['^9._?'?_<\N\S_PWTOT+_E?6/@/^N^*^._TO[3]3_;<K_%
``
end
END_UU
--
+-----------------------------------+---------------------------------------+
| `.. . Looks like a fish, moves | Detlef Mueller |
| like a fish, steers like a cow.` | detlef@mwhh.hanse.de |
| Ford in THGTTG, part II, p. 107 |...!uunet!mcsun!unido!mcshh!mwhh!detlef|
+-----------------------------------+---------------------------------------+